home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / disk swap (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  330b  |  11 lines
  1. 2000 print"please change disks."
  2. 2010 open 15,8,15
  3. 2020 gosub 3000: if a<>0  then 2020 :rem  wait for disk to be removed
  4. 2030 gosub 3000: if a<>16 then 2030 :rem  wait for no disk in drive
  5. 2040 gosub 3000: if a<>0  then 2040 :rem  wait for disk to be inserted
  6. 2050 for d = 1 to 1500: next: close 15
  7. 2060 print"ok, thanks!"
  8. 2070 end
  9. 2080 :
  10. 3000 print#15,"m-r";chr$(0)chr$(28)chr$(1):get#15,a$:a=asc(a$)and16:return
  11.